home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 10
/
FM Towns Free Software Collection 10.iso
/
fb386
/
demo
/
kushida
/
73.bas
< prev
next >
Wrap
BASIC Source File
|
1995-02-06
|
11KB
|
196 lines
10 PLAY OFF
20 LOAD@ "ED02.FMB" : LOAD@ "ED05.PMB"
30 CLS 1 : COLOR 5 : PRINT "INDIAN CONTROL [ Mosaic mix ]"
40 PRINT "written TAKAO KUSHIDA"
50 S$="%CQ8T152" : PLAY S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$,S$
60 '
70 '
80 '
90 AL$="@1V7O3L16Q8" : AR$=AL$+"V3R8" : AE$=AL$+"[["
100 A1L$=AL$+"B>C<A8B>C<G8B>C<E8B>C<D8 C8D2 <G8>D8G8 Q8"
110 A1R$=AR$+"B>C<A8B>C<G8B>C<E8B>C<D8 C8D2 <G8>D8 Q8"
120 A1E$=AL$+"EDE8<A2>D4 EDE8<G4 %R10>>AGED C<AGE Q8"
130 A1F$=AR$+"EDE8<A2>D4 EDE8<G4 %L10>>AGED C<A Q8"
140 A1G$=AL$+"EAE8<A2>C4 DGD8<G4 &G8 E8B8>C8"
150 A1H$=AR$+"EAE8<A2>C4 DGD8<G4 &G8 E8B8 "
160 A2L$=AL$+"D8C8D8A2DD# E8D8E8B8&B4>E4"
170 A2R$=AR$+"D8C8D8A2DD# E8D8E8B8&B4>E8"
180 A2E$=AL$+">C8<B8A8E4&E8D8E8 A4E8G4D8E8C8"
190 A2F$=AR$+">C8<B8A8E4&E8D8E8 A4E8G4D8E8 "
200 A3L$=AL$+"[[ D4&D8C8&C2 &C2&C4 G4"
210 A3R$=AR$+"[[ D4&D8C8&C2 &C2&C4 G8"
220 A3E$=AL$+"[[ E4&E8G4&G8B4 >C4&C8<B4&B8>D4"
230 A3F$=AR$+"[[ E4&E8G4&G8B4 >C4&C8<B4&B8>D8"
240 A3G$=AL$+"[[ >C4&C8<B4&B8E4 &E1"
250 A3H$=AR$+"[[ >C4&C8<B4&B8E8 &E1"
260 A3I$=AL$+"[[ G4&G8A8&A2 &A1"
270 A3J$=AR$+"[[ G4&G8 A2 &A1"
280 '
290 C0L$="@5 V4O4L16Q3 GGQ8A8(Q3GQ8A8)3Q3GQ8>A<EQ3GGQ8A8(Q3GQ8A8)4 Q8"
300 C0R$="@5 V1O4L16Q3R5 GGQ8A8(Q3GQ8A8)3Q3GQ8>A<EQ3GGQ8A8(Q3GQ8A8)GA Q8"
310 C1L$="@44 V4O3L16Q2 A8&AARRG8&G>C<D8ERGG# A8&AARRG8&G>>C<<D8D#EG8Q8"
320 C1R$="@44 V0O3L16Q2R8A8&AARRG8&G>C<D8ERGG# A8&AARRG8&G>>C<<D8D#E Q8"
330 C1E$="@109V7O4L16Q1%R4 ARRRARRRGRARRRE8 %L4GRARRRERGRRRARRR %CQ8"
340 C1F$="@109V1O4L16Q1%L4 ERRARRRARRRGRARRDRR %R4GRARRRERGRRRA %CQ8"
350 C1G$="@12V4O5L16Q4 RRERRERR ERDDRD#ER <G>GGRGR<G>GRDGRD8G8 Q8"
360 C1H$="@12V1O5L16Q8R8 RRERRERR ERDDRD#ER <G>GGRGR<G>GRDGRD8 Q8"
370 C2$= "@43V5O3L16Q8 <A4>A4<RGAR>A8E8 <A8>EGA4<A8>EG A8>C8<"
380 C2X$="@43V5O3L16Q8 ARA8GARARAA8>C8D<G ARA8GARARAA8E8E8"
390 C2Y$="@43V5O3L16Q8 RRARRARRARRARGAR ARA8GARARAA8E8E8"
400 C2Z$="@43V5O3L16Q4 RRERRERRERRERDER Q2@115]]<EG8GA8A]>C8CD8E8GQ8G# "
410 C2E$="@109V6O4L16Q1 %L4ERARE8GERAERGR>E8< %R4ERARE8GERAERGRDD# %CQ8"
420 C2F$="@109V4O4L16Q1R8%R4ERARE8GERAERGR>E8< %L4ERARE8GERAERGR %CQ8"
430 C3L$="@115V11O3L16Q4%R3 ARRR>ARRR<GAR>CRDE<D RERA>ARRR<GAR>CRDC8"
440 C3R$="@115V4 O3L16Q4%L3R5 ARRR>ARRR<GAR>CRDE<D RERA>ARRR<GAR>CR90 "
450 C3E$="@115V11O4L16Q4%R3 ER<ARGA8>A<AR>G<A8EG8ARA8GA>C<ARA<A>AGA>C8"
460 C3F$="@115V4 O4L16Q4%L3R5 ER<ARGA8>A<AR>G<A8EG8ARA8GA>C<ARA<A>AG90 "
470 C3G$="@115V11O4L16Q4%R3 GAAR>A<AR>ER<DD#RERGRD#RRDRRCR<ARRRQ8@43G4"
480 C3H$="@115V4 O4L16Q4%L3DRRGAAR>A<AR>ER<DD#RE CRR<BRRGR ERRRQ8@43D4"
490 C3I$="@115V11O4L16Q4%R3 ER<ARGA8>A<AR>G<A8EG8 ERRRR4%CV7A&A8G&G8E8"
500 C3J$="@115V6 O4L16Q4%L3CRRER<ARGA8>A<AR>G<A8EG8 E R4%CV6E&E8D&D8C8"
510 C4L$="@50V8O1L16Q1>C<AA8>D<AA8>E<A>CDRD<GA>C<AA8>D<AA8>E<A>CDRD<G8Q8"
520 C4R$="@79V6O2L16Q1 (%L5RRARR %R5ARE %L5ARR %R5A<<Q8A>Q1A> %CAR) Q8"
530 C4E$="@114V3O3L16Q8 GAARA>A<AR>A<AERGAAE GAARA>A<AR>A<AERGAAR Q8"
540 C4F$="@24 V5O3L16Q4 R4A8GA RRARRRAR RRREA8GA RRD#EG4 Q8"
550 C4G$="@114V3O3L16Q8 GAARRRRRRRRRRRAE GAARRRRRRRRRGAAR Q8"
560 C4H$="@24 V5O3L16Q4 RRRRRRRRRRRRRRRR RRRRRRRRRRRRG4 Q8"
570 C5L$="@42V7O4L16Q3 (E4)3 E8F#8 &F#4(F#4)3 Q8"
580 C5R$="@42V2O4L16Q3R5 (E4)3 E8F#8 &F#4(F#4) Q8"
590 C5E$="@42V7O4L16Q3 (G4)3 G8A8 &A4(A4)3 Q8"
600 C5F$="@42V2O4L16Q3R5 (G4)3 G8A8 &A4(A4) Q8"
610 C5G$="@42V7O4L16Q3 G4 R2R8AR &R4R2R4 Q8"
620 C5H$="@42V2O4L16Q3R5 G4 R2R8AR &R4R2R90 Q8"
630 C6L$="@50V9O4L16 R4E4F#4 @5>]]] RRF#R G4GRG4GRF#4 Q8"
640 C6R$="@50V7O4L16 R4C4D4 @5>R5 RRF#R G4GRG4GRF#90 Q8"
650 C6E$="@50V9O4L16 R4E4F#4 @5>]]] RRF#R G4GRG4GRA4 Q8"
660 C6F$="@50V7O4L16 R4C4D4 @5>R5 RRF#R G4GRG4GRA90 Q8"
670 C7L$="@56V6O2L16Q2 RRERAR>E<GADEGA8>E<GA>A<RR>>E<A<AR(A>AA>A<) Q8"
680 C7R$="@56V2O2L16Q8R8 RRERAR>E<GADEGA8>E<GA>A<RR>>E<A<ARA>AA>A<A>A Q8"
690 C7E$="@56V6O2L16Q2(A>A<RR>>E<A<AR)F#>F#<F#8>F#<F#8F#G>G<G8>G#GG#8Q8"
700 C7F$="@56V2O2L16Q8R8(A>A<RR>>E<A<AR)F#>F#<F#8>F#<F#8F#G>G<G8>G#G "
710 C7G$="@56V6O2L16Q2 (A>A<RR>>E<A<AR) E1 Q8"
720 C7H$="@56V2O2L16Q8R8(A>A<RR>>E<A<AR) E2&E4&E8 Q8"
730 E1L$="@12V5O3L16 (%L5Q2ARQ8A8%R5>Q2C<%CAR<Q8A>)4 Q8"
740 E1R$="@12V1O3L16R8 (%R5Q2ARQ8A8%R5>Q2C<%CAR<Q8A>)3Q2ARQ8A8>Q2C<A Q8"
750 E1E$="@12V5O3L16 >(%L5Q2ERQ8E8%R5Q2B%CER<Q8E>)4 Q8"
760 E1F$="@12V1O3L16R8 >(%R5Q2ERQ8E8%R5Q2B%CER<Q8E>)3 Q2ERQ8E8Q2BE Q8"
770 E2L$="@106V9O4L16Q2%R2 (GDAE)G>D<AE>G<DA>E< GE>AE<(GDAE)3 Q8"
780 E2R$="@106V5O4L16Q2%L2R8 (GDAE)G>D<AE>G<DA>E< GE>AE<(GDAE) GD Q8"
790 E3L$="@117V8O2L16Q1%R7 (EGAEG>A>A<D) EG8>E<G>A>A<D EG>A<EG>A>AE Q8"
800 E3R$="@117V4O2L16Q1%L7R8 (EGAEG>A>A<D) EG8>E<G>A>A<D EG>A<EG>A> Q8"
810 E3E$="@117V8O4L16Q1%R7 (EGAEG>AE<D) EG8>E<G>AED EG>AEG>EAB Q8"
820 E3F$="@117V4O4L16Q1%L7R8 (EGAEG>AE<D) EG8>E<G>AED EG>AEG>E Q8"
830 E4L$="@1 V8O3L16Q1%L3 (GD>G<EG>AE<DEDGA>A<EGD) Q8"
840 E4R$="@1 V3O3L16Q1%R3R5 GD>G<EG>AE<DEDGA>A<EGD GD>G<EG>AE<D EDGA Q8"
850 E4$= "@1 V6O3L16Q1 (%L5GD>G%R5<EG>A%CE<D %R5EDG%L5A>A<E%CGD) Q8"
860 '
870 B1$= "@28 V8 O2L16Q6 ERA8GARR RRRRE4 G8ARRRRR RRE4G8 Q8"
880 B1E$="@12 V7 O3L16Q6 A8&AA RDE8 D8D8CD8D C8&CC8<A>C8 E>E<E8 G8EG Q8"
890 B1F$="@12 V7 O3L16Q6 A8&AA RDE8 D8D8CD8D C8&CC8<A>C8<G4G4 Q8"
900 B1G$="@28 V9 O2L16Q8 A2&A4&A8 ER RRERRE8D# EGE8D8E8"
910 B2$= "@88 V11O1L16Q8 (EA8)E>E<AEA8E8DD#(EA8)3@28>>>E<<<@88A8>A<GE8Q8"
920 B2E$="@88 V11O1L16Q8 (DA8)DGEDA8 D8AC (DA8)3@28>>>D<<<@88A8D8A8Q8"
930 B2F$="@88 V11O1L16Q8 (DA8)DGEDA8 D8AC @28>D2&D4 @79<D8Q3DD Q8"
940 B2G$="@88 V11O1L16Q8 (DA8)DGEDA8 D8AC @81V8D2&D4 @28O2GA>C8 Q8"
950 B3$ ="@56 V6 O1L16Q4 EGA8A>E8<AGGE8>E8<ED EGA8A>E8<AG>>A<<E8>E8<G8Q8"
960 B3E$="@107V8O1L16Q8 R1R2R4 E4"
970 B4$ ="@107V8O1L16Q5 A4A4A4GRA4 ERE4GRG8E8G#8 "
980 B4E$="@107V8O1L16Q5 A&A8A&A8A8 ARRRF4 G&G8G&G8G8 D&D8D#8&D#E8"
990 B4F$="@107V8O1L16Q5 F&F8F&F8A8 FRRRA4(F#&F#8)F#8 G>D<G8B4"
1000 '
1010 P1$= "@9 V10O1L16 CRCRRCRRRRCRRRCR CRRCRCRRRRCRRRCR"
1020 S1$= "@9 V10O1L16 CRCRRCRRRRCRRRCR CRRRRRRRRRRRRRRR"
1030 P2$= "@2 V15O4L16 RRRRGRRGRGRRGRRR RRRRGRRGRGRRGRV5GG"
1040 R2$= "@2 V15O4L16 RRRRGRRGRGRRGRRR RGRRCRRRGRGG32E32CRCR"
1050 S2$= "@2 V15O4L16 RRRRGRRRRGRRGRRR RRRRRRRRRRRRRRRR"
1060 P3$= "@5 V6 O6L16 GRGRRRGRGRRRRGRG32G32 GRGRRGGRGRRRRGRR"
1070 S3$= "@5 V6 O6L16 GRGRRRGRGRRRRGRG32G32 GRRRRRRRRRRRRRRR"
1080 P4$= "@6 V6 O7L16 RRRRRRCRRRCRRRCR RRRRRRCRRRCRRRRR"
1090 Q4$= "@6 V4 O5L16 RRCRRRCRRRCRRRCR RRCRRRCRRRCRRRCR"
1100 S4$= "@6 V4 O5L16 RRCRRRCRRRCRRRCR RRRRRRRRRRRRRRRR"
1110 P5$= "@7 V9 O8L16 RRRRRRRRRRRRCRRR RRRRCRRRRRRRRRCR"
1120 P6$= "@1 V7 O0L16 GRRRGRRRGRRRGRGR GRRRGRRRGRRRGRRR"
1130 Q6$= "@1 V7 O0L16 GRRRGRRRGRRRGRGR GRRRRRRRRR @9 CRCRCR"
1140 R6$= "@1 V7 O0L16 GRRRRRRRRRRRRRRR RRRRRRRRRRRRRRRR"
1150 T6$= "@1 V7 O0L16 GRRRGRRRGRRRGRGR GRRRGRRRGRGRGRGR"
1160 P7$= "@6 V6 O7L16 (G@9C@6)RR(G@9C@6)RRG@9CR<A32G32> "
1170 P7$= P7$+" @6 G@9C@6 RRRR G@9C@6 RR G@9C@6 RRG@9C"
1180 P8$= "@1 V9 O2L16 RRRRGRRR RRGRRRGR RRGRGRRR GRRRCRR @9V5O1C32C32"
1190 SP1$="@3 V10O3L16 (RRC)R<C>CRRCRRRC32C32 RRCRRC<C>RCR<C>CRCCR"
1200 BP1$="@6 V0 O5L16 R1 DDDD] DD]DD] D]D]]D]]D]] %L15D%R15D %C <D8"
1210 BP2$="@9 V11O3L16 R1 R2 RG%R9GR %L9GR%CGR"
1220 BP3$="@1 V11O3L16 R1 RFFRFRFFRFRFFRFF32F32"
1230 '
1240 'PLAY C1L$,C1R$,C1E$,C1F$ : END
1250 'PLAY C4L$,C4R$,C2$,B2G$ ,C3I$,C3J$ ,Q6$,S2$,S3$,S4$,P5$ : END
1260 'PLAY C2E$,C2F$,C2$,B1E$ ,C1G$,C1H$ ,P6$,P2$,P3$,Q4$,P5$ : END
1270 'PLAY ,,,,,,,P7$,P8$,Q4$ : END
1280 'PLAY ,,,,,,,SP1$ : END
1290 'GOTO 1590
1300 '
1310 '
1320 PLAY , ,C0L$,C0R$
1330 PLAY , ,C0L$,C0R$
1340 PLAY C1L$,C1R$,C0L$,C0R$
1350 PLAY C1L$,C1R$,C0L$,C0R$,,,SP1$
1360 PLAY C1L$,C1R$,C2$,C0L$,C0R$,,P5$,SP1$
1370 PLAY C1L$,C1R$,C2$,C0L$,C0R$,,P5$,SP1$
1380 PLAY C1L$,C1R$,C2$,C0L$,C0R$,,P5$,SP1$
1390 PLAY C1L$,C1R$,C2$,C0L$,C0R$,,P5$,SP1$,BP1$
1400 PLAY C1L$,C1R$,C2$, ,E1L$,E1R$ ,P1$,P2$,P3$,P4$
1410 PLAY C1L$,C1R$,C2$, ,E1L$,E1R$ ,P1$,P2$,P3$,P4$
1420 PLAY C1L$,C1R$,C2$,B1$,E1L$,E1R$ ,P1$,P2$,P3$,P4$
1430 PLAY C1L$,C1R$,C2$,B1$,E1E$,E1F$ ,S1$,P2$,P3$,P4$,BP2$
1440 PLAY C1E$,C1F$,C2$ ,B1E$,C1L$,C1R$ ,P1$,P2$,P3$,P4$,P5$
1450 PLAY C1E$,C1F$,C2$ ,B1F$,C1L$,C1R$ ,P1$,P2$,P3$,P4$,P5$
1460 PLAY C1E$,C1F$,C2$ ,B1E$,C1L$,C1R$ ,P1$,P2$,P3$,P4$,P5$
1470 PLAY C2E$,C2F$,C2Y$,B1G$,C1G$,C1H$ ,R6$, , , , ,BP1$
1480 PLAY C1E$,C1F$,C2X$,B1E$,C2E$,C2F$ ,P6$,P2$,P3$,Q4$,P5$
1490 PLAY C1E$,C1F$,C2X$,B1F$,C2E$,C2F$ ,P6$,R2$,P3$,Q4$,P5$
1500 PLAY C1E$,C1F$,C2X$,B1E$,C2E$,C2F$ ,P6$,P2$,P3$,Q4$,P5$
1510 PLAY C2E$,C2F$,C2Z$,B1F$,C1G$,C1H$ ,P1$,P2$,P3$,P4$,P5$,BP3$
1520 PLAY C1G$,C1H$,C2$ ,B2$ ,C3L$,C3R$ ,P6$,P2$,P3$,Q4$,P5$
1530 PLAY C1G$,C1H$,C2$ ,B2E$,C3E$,C3F$ ,P6$,P2$,P3$,Q4$,P5$
1540 PLAY C1G$,C1H$,C2$ ,B2$ ,C3L$,C3R$ ,P6$,P2$,P3$,Q4$,P5$
1550 PLAY C1G$,C1H$,C2Z$,B2G$,C3I$,C3J$ ,P6$,S2$,S3$,Q4$
1560 PLAY C4L$,C4R$,C2X$,B2$ ,C3L$,C3R$ ,P6$,P2$,P3$,Q4$,P5$
1570 PLAY C4L$,C4R$,C2X$,B2E$,C3E$,C3F$ ,P6$,P2$,P3$,Q4$,P5$
1580 PLAY C4L$,C4R$,C2X$,B2$ ,C3L$,C3R$ ,P6$,P2$,P3$,Q4$,P5$
1590 PLAY C4L$,C4R$,C2Y$,B2F$,C3G$,C3H$ ,T6$,S2$,S3$,S4$
1600 PLAY C4E$,C4F$,C2$, ,C5L$,C5R$ ,R6$,P7$,P8$,P5$
1610 PLAY C4E$,C4F$,C2$, ,C5E$,C5F$ , ,P7$,P8$
1620 PLAY C4E$,C4F$,C2$,B1$ ,C5L$,C5R$ , ,P7$,P8$,P5$
1630 PLAY C4G$,C4H$,C2$, ,C5G$,C5H$ ,R6$, , ,BP1$
1640 PLAY C4E$,C4F$,C2$,B3$,C5L$,C5R$ ,P6$,P7$,P8$ ,P5$
1650 PLAY C4E$,C4F$,C2$,B3$,C5E$,C5F$ ,P6$,P7$,P8$
1660 PLAY C4E$,C4F$,C2$,B3$,C5L$,C5R$ ,P6$,P7$,P8$
1670 PLAY C4E$,C4F$,C2$,B3$,C5E$,C5F$ ,Q6$,P7$,P8$
1680 PLAY , ,E1L$,E1R$,C1G$,C1H$,P1$,P2$,P3$,SP1$,P5$
1690 PLAY , ,E1L$,E1R$,C1G$,C1H$,P1$,P2$,P3$,SP1$
1700 PLAY C4E$,C4F$,E1L$,E1R$,E2L$,E2R$,P1$,P2$,P3$,SP1$
1710 PLAY C4E$,C4F$,E1E$,E1F$,E2L$,E2R$,S1$,S2$,S3$,SP1$,BP3$
1720 PLAY C4E$,C4F$,C7L$,C7R$,E2L$,E2R$,P6$, ,,Q4$
1730 PLAY C4E$,C4F$,C7E$,C7E$,E2L$,E2R$,P6$, ,,Q4$
1740 PLAY C4E$,C4F$,C7L$,C7R$,E2L$,E2R$,P6$,P2$,,Q4$
1750 PLAY C4E$,C4F$,C7F$,C7F$,E2L$,E2R$,Q6$,S2$,,S4$,BP1$
1760 PLAY C7L$,C7R$,C6L$,C6R$,E2L$,E2R$,P6$,P2$,P3$,Q4$
1770 PLAY C7E$,C7F$,C6E$,C6F$,E2L$,E2R$,P6$,P2$,P3$,Q4$
1780 PLAY C7L$,C7R$,C6L$,C6R$,E2L$,E2R$,P6$,P2$,P3$,Q4$
1790 PLAY , , , ,E2L$,E2R$,R6$ ,BP1$,BP2$,BP3$
1800 PLAY , , ,E4L$,E4R$,,P6$,,,Q4$,SP1$
1810 PLAY , ,E3R$,E4L$,E4R$,,P6$,,,Q4$,SP1$
1820 PLAY ,E3L$,E3R$,E4L$,E4R$,,P6$,,,Q4$,SP1$
1830 PLAY B3E$,E3L$,E3R$,E4L$,E4R$,,Q6$,,,S4$,SP1$
1840 PLAY B4$ ,E3L$,E3R$,A1L$,A1R$,E4$,P6$,P2$,P3$,Q4$
1850 PLAY B4$ ,E3L$,E3R$,A1E$,A1F$,E4$,P6$,P2$,P3$,Q4$
1860 PLAY B4$ ,E3L$,E3R$,A1L$,A1R$,E4$,P6$,P2$,P3$,Q4$
1870 PLAY B4$ ,E3L$,E3R$,A1G$,A1H$,E4$,P6$,P2$,P3$,Q4$,BP3$
1880 PLAY B4E$,E3L$,E3R$,A2L$,A2R$,E4$,P1$,P2$,P3$,P4$,SP1$
1890 PLAY B4F$,E3L$,E3R$,A2E$,A2F$,E4$,P1$,P2$,P3$,P4$,SP1$
1900 PLAY B4E$,E3L$,E3R$,A2L$,A2R$,E4$,P1$,P2$,P3$,P4$,SP1$
1910 PLAY B4F$,E3L$,E3R$,A2E$,A2F$,E4$,S1$,S2$,S3$,S4$,SP1$
1920 PLAY B4E$,E3L$,E3R$,A3L$,A3R$,E4$
1930 PLAY B4F$,E3L$,E3R$,A3E$,A3F$,E4$
1940 PLAY E3L$,E3R$,A3G$,A3H$,E4L$,E4R$
1950 PLAY E3E$,E3F$,A3I$,A3J$,E4L$,E4R$